$PBExportHeader$uo_equiv_matrices.sru
$PBExportComments$Usado para seleccionar una matriz de equivalencia...
forward
global type uo_equiv_matrices from uo_dw
end type
end forward

global type uo_equiv_matrices from uo_dw
integer width = 1271
integer height = 636
string dataobject = "dk_filtros"
end type
global uo_equiv_matrices uo_equiv_matrices

on uo_equiv_matrices.create
end on

on uo_equiv_matrices.destroy
end on

event itemchanged;call super::itemchanged;Integer i
if AncestorReturnValue = 0 Then
	if dwo.name = 'seleccionado' Then
		if data = 'S' Then
			For i = 1 to this.rowCount()
					if this.GetitemString(i,'seleccionado') = 'S' then
						if i <> row Then This.SetItem(i,'seleccionado','N')
					End if
			Next
		End If
	End If 
End If

Return AncestorReturnValue
end event

